﻿Public Class InterfaceHelper

    Public Shared Function GetFriendlyMessage(ByVal form As FormTypes, ByVal ex As Exception) As String
        Dim message As String
        Select Case form
            Case FormTypes.StartArchiving
                message = "An error occured when processing confirms. " + Environment.NewLine + ex.Message
            Case Else
                message = ex.Message
        End Select

        Return message
    End Function
End Class
